perm filename FIBQ.F4[NEW,LCS] blob sn#330400 filedate 1978-01-24 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	CC	DATA FIB/1.618/, RFIB/0.616/
C00003 ENDMK
CāŠ—;
CC	DATA FIB/1.618/, RFIB/0.616/
	DATA FIB/0.618/, RFIB/-.382/,ALG/0.6931472/
100	ACCEPT 10,A
10	FORMAT(F)
	PFIBX=14
CC	IF(A.EQ.1)GO TO 20
	PFIBX=14.*EXP(ALOG(A)*0.5849624)
20	TYPE 10,PFIBX
	GO TO 100
	END